home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / etc / bash_completion.d / cpan2dist < prev    next >
Encoding:
Text File  |  2009-04-02  |  1.3 KB  |  46 lines
  1. # -*- mode: shell-script; sh-basic-offset: 8; indent-tabs-mode: t -*-
  2. # ex: ts=8 sw=8 noet filetype=sh
  3. #
  4. # bash completion for cpan2dist
  5.  
  6. have cpan2dist &&
  7. _cpan2dist()
  8. {
  9.     local cur prev packagelist cpandirs
  10.  
  11.     COMPREPLY=()
  12.     cur=`_get_cword`
  13.     prev=${COMP_WORDS[COMP_CWORD-1]}
  14.  
  15.     case $prev in
  16.         --format)
  17.             # should remove ":" from COMP_WORDBREAKS, but doesn't work (?)
  18.             COMPREPLY=( $( compgen -W '$(perl -MCPANPLUS::Dist -e "print map { \"\$_\n\" } CPANPLUS::Dist->dist_types")' -- "$cur" ) )
  19.             return 0
  20.             ;;
  21.         --@(banlist|ignorelist|modulelist|logfile))
  22.             _filedir
  23.             return 0
  24.             ;;
  25.     esac
  26.  
  27.     if [[ "$cur" == -* ]]; then
  28.         COMPREPLY=( $( compgen -W '--help --skiptest --force --install \
  29.             --verbose --keepsource --makefile --buildprereq \
  30.             --archive --flushcache --defaults --edit-metafile \
  31.             --format --ban --banlist --ignore --ignorelist \
  32.             --modulelist --logfile --timeout --set-config \
  33.             --set-program --dist-opts --default-banlist \
  34.             --default-ignorelist' -- $cur ) )
  35.     else
  36.         cpandirs=( "$HOME/.cpanplus/" "$HOME/.cpan/source/modules/" )
  37.         for dir in ${cpandirs[@]}; do
  38.             [ -d "$dir" -a -r "$dir/02packages.details.txt.gz" ] && packagelist="$dir/02packages.details.txt.gz"
  39.         done
  40.         COMPREPLY=( $( zgrep "^${cur//-/::}" \
  41.             $packagelist 2>/dev/null \
  42.             | awk '{print $1}' | sed -e 's/::/-/g' ) ) 
  43.     fi
  44. } &&
  45. complete -F _cpan2dist $default cpan2dist
  46.